The Atari ST E 


Compatible with ST, 1000s of software titles available. 

New 

• Extended color palette of 4096 colors, from 512 

• Hardware support for horizontal and vertical scrolling 

• Ready for external GENLOCK 

• Stereo 8 bit PCM sound 

• Light gun, paddle and new joystick ports. 

• 256K ROM from 192K includes 

Move as well as copy files 
Rename folders 
Autoboot GEM applications 
New file selector 
Faster desktop 
Large palette support 
Fast hard-disk support 
Folder limitations lifted 
Memory management improved 
Keyboard reset 
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STE Developer Addendum 


This addendum is a set of documents that allows the ST developer to 
use the new features of the STE. These new features are in the areas of 
graphics, sound and interface ports. 

The STE has a palette of 4096 colors compared to the ST palette of 512 
colors. Also the STE has hardware support for vertical and horizontal 
scrolling. Support has also been added for external GENLOCK. 

Sound on the STE has the ST sound as well as 8 bit stereo DMA sound 
with variable playback frequencies. 

The STE also has two new controller ports that allow for new joysticks 
as well as a light gun and paddle controllers. 



Genlock and the STE 


The ST (and STE) chip set have the ability to accept external sync. 

This is controlled by bit 0 at FF820A, as documented in the ST Hardware 
Specification. This was done to allow the synchronization of the ST video 
with an external source (a process usually known as GENLOCK). However, 
in order to do this reliably the system clock must also be phase-locked (or 
synchronized in some other way) to the input sync signals. No way to do this 
was provided in the ST, as a result the only GENLOCKs available are internal 
modifications (usually for the MEGA). 

The STE allows this to be done without opening the case. To inject a 
system clock ground pin three (GPO) on the monitor connector and then inject 
the clock into pin 4 (mono detect). The internal frequency of this clock is 
32.215905 MHz (NTSC) and 32.084988 MHz (PAL). Note: DO NOT 
SWITCH CLOCK SOURCE WHILE THE SYSTEM IS ACTIVE. 

As a result of this GPO is no longer available. 



Controilers 


FF9200 

FF9202 


FF9210 

FF9212 

FF9214 

FF9216 


FF9220 

FF9222 


Fire 

Buttons 

uithihaitI^ihaithihaitITT^I 
Joy 3 Joy 1 Joy 2 Joy 0 

Joy sticks. 

Four new joystick ports are added. These ports are controlled directly by the 68000. 
The current state may be sampled at any time by reading the above locations. 
Joystick 0 and Joystick 2 direction bits are read/write. If written to they will be driven 
until a read is performed. Similarly, they will not be driven after a read until a write is 
performed. 
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(X Paddle 0) 
(Y Paddle 0) 
(X Paddle 1) 
(Y Paddle 1) 


Paddles. 

One pair of paddles can be plugged into Joystick 0 (Paddle 0). A second set can be 
plugged into Joystick 1 (Paddle 1). The current position of each of the four paddles is 
reported at these locations. The fire buttons are the same as for the respective 
joystick. The triggers for the paddles are read as bits one and two of FF9202 
(JOYO Left and Right) 
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Light Gun / Pen. 

A light gun or pen can be plugged into Joystick 0. The current position that the gun 
or pen is pointing to is reported by these registers. The position is accurate to within 
(X direction only): 

4 Pixels in 320x200 Mode 
8 Pixels in 640x200 Mode 
16 Pixels in 640x400 Mode 


Accurate to 1 pixel in the Y direction in all modes. Accuracies do not account for the 
quality of the light gun or pen. Note that the X position is given in pixels for 320x200 
only. In order to get correct results in 640x200 mode this number needs to be shifted 
left one bit and in 640x400 mode this number needs to be shifted left two bits. 
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New Controller Pinout 


This pinout is for ports 0 and 1. 
Ports 2/3 are on the other DB15 
connector. 
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1 UPO 

2 DNO 

3 LTO 

4 RTO 

5 PAD OY 

6 FIREO 

7 VCC 

8 NC 

9 GND 

10 FIRE 1 

11 UP 1 

12 DN 1 

13 LT 1 

14 RT 1 

15 PAD OX 



Video Modifications 


FF8204 

FF8206 

FF8208 


FF820C 


FF820E 


FF8240 

through 

FF825E 


FF8264 
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(High) 


(Low) 


Video Address Counter. 

Now read/write. Allows update of the video refresh address during the frame. The 
effect is immediate, therefore it should be reloaded carefully (or during blanking) to 
provide reliable results. 


^MMazi L Lj . i m 


Low byte of the video base address. This register completes the set on ST 
Allows positioning screen on word boundaries and thus vertical scrolling. 
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Offset to next line. 

Number of words from end of line to beginning of next line minus one. Allows virtual 
screen to be wider than physical screen. Acts like an ST when cleared. Cleared at 
reset. 
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Red Green Blue 
Color Pallete. 

A fourth bit of resolution is added to each color. Note that the least significant bit is 
added above the old most significant bit to remain compatible with the ST. 
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Horizontal Bit-wise Scroll. 

Delays the start of screen by the specified number of bits. 
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How to Implement Fine Scrolling on the STE. 


The purpose of this document is to describe how to use the capabilities of the STE to achieve 
bit-wise fine-scrolling and vertical split screens. Horizontal and vertical scrolling are 
discussed and an example program is provided. Split screen effects are discussed and an 
example program with multiple independent scrolling regions is provided. 

Three new registers are provided to implement fine-scrolling and split screen displays: 

1) HSCROLL - This register contains the pixel scroll offset. If it is zero, this is tire 
same as an ordinary ST. If it is non-zero, it indicates which data bits constitute the 
first pixel from the first word of data. That is, the leftmost displayed pixel is selected 
from the first data word(s) of a given line by this register. 

2) LINEWID - This register indicates the number of extra words of data (beyond that 
required by an ordinary ST at the same resolution) which represent a single display 
line. If it is zero, this is the same as an ordinary ST. If it is non-zero, that many 
additional words of data will constitute a single video line (thus allowing virtual 
screens wider than the displayed screen). CA UTION- In fact, this register contains 
the word offset which the display processor will add to the video display address to 
point to the next line. If you are actively scrolling (HSCROLL < > 0), this register 
should contain the additional width of a display line minus one data fetch (in low 
resolution one data fetch would be four words, one word for monochrome, etc.). 

3) VBASELO - This register contains the low-order byte of the video display base 
address. It can be altered at any time and will affect the next display processor data 
fetch. It is recommended that the video display address be altered only during vertical 
and horizontal blanking or display garbage may result. 

These registers, when used in combination, can provide several video effects. In this 
document we will discuss only fine-scrolling and split-screen displays. 

Fine Scrolling: 

Many games use horizontal and vertical scrolling techniques to provide virtual playfields 
which are larger than a single screen. We will first discuss vertical scrolling (line-wise), then 
horizontal scrolling (pixel-wise) and finally the example program "neowalLs" which 
combines both. 

Vertical Scrolling: 

To scroll line-wise, we simply alter the video display address by one line each time we wish 
to scroll one line. This is done at vertical blank interrupt time by writing to the three eight- 
bit video display address registers to define a twenty-four-bit pointer into memory. 

Naturally, additional data must be available to be displayed. We might imagine this as a tall, 
skinny screen which we are opening a window onto for the user. The video display address 
registers define where this window will start. 

Horizontal Scrolling: 

To scroll horizontally we might also adjust the video display address. If that was all we did, 
we would find that the screen would jump sideways in sixteen pixel increments. To achieve 
smooth pixel-wise scrolling we must use the HSCROLL register to select where within each 
sixteen pixel block we wish to start displaying data to the screen. Finally, we must adjust the 
LINEWID register to reflect both the fact that each line of video data is wider than a single 
display line and any display processor fetch incurred by a non-zero value of HSCROLL. All 
this is done at vertical blank interrupt time. Naturally, additional data must be available to be 



displayed. We might imagine this as an extremely wide screen which we are opening a 
window onto for the user. These registers define where this window will start. 

For Example: 

The program "neowall.s" reads in nine NEOchrome™ picture files, organizes them into a 
three by three grid and allows the user to scroll both horizontally and vertically over the 
images. The heart of this program (the only interesting thing about it actually) is the vertical 
blank interrupt server. This routine first determines the pixel offset and loads it into 
HSCROLL. The LINEWID register is now set to indicate that each virtual line is three times 
longer than the actual display width. If we are actively scrolling, this amount is reduced to 
reflect the additional four-plane data fetch which will be caused by the scrolling. Finally, the 
video display address is computed to designate a window onto the grid of pictures. This 
twenty-four-bit address determines where the upper-left comer of the displayed region 
begins in memory. Thus, every frame an arbitrary portion of the total image is selected for 
display. The speed and resolution of this scrolling technique is limited only by the dexterity 
of the user. 

Split Screen: 

In many applications it is desirable to subdivide the screen into several independent regions. 
On the STE you may reload some video registers on a line-by-line basis (using horizontal 
blanking interrupts) to split the screen vertically into multiple independent regions. A single 
screen no longer need be a contiguous block of storage, but could be composed of dozens of 
strips which might reside in memory in any order. The same data could be repeated on one 
or more display lines. Individual regions might each have their own individual data and 
scrolling directions. 

For Example: 

The program "hscroll.s" reads in a NEOchrome™ picture file and duplicates each line of the 
image. This, combined with the proper use of LINEWID, effectively places two copies of the 
same picture side-by-side. Next, both vertical and horizontal blanking interrupt vectors are 
captured and the horizontal blanking interrupt is enabled in counter mode. To prevent flicker 
caused by keyboard input, the IKBD/MIDI interrupt priority is lowered below that of the 
HBL interrupt. Note that the program ’main loop’ doesn’t even call the BIOS to check the 
keyboard, since the BIOS sets the IPL up and causes flicker by locking out horizontal 
interrupts - this may cause trouble for programs in the real world. The screen is effectively 
divided into ten regions which scroll independently of one another. There are two ten- 
element arrays which contain the base address of each region and its current scroll offset. At 
vertical blank interrupt time we compute the final display values for each region in advance 
and store them into a third array. We then initialize the display processor for the first region 
and request an interrupt every twenty lines (actually every twenty horizontal blankings). 
During each horizontal interrupt service, we quickly reload the video display address 
registers and the HSCROLL register. This must be done immediately - before the display 
processor has time to start the current line or garbage may result. Note that horizontal blank 
interrupts are triggered by the display processor having finished reading the previous data 
line. You have approximately 144 machine cycles to reload the HSCROLL and video display 
registers before they will be used again by the display processor. Finally, the LINEWID 
register is set, this need only be done before the processor finishes reading the data for the 
current display line. We then pre-compute the data we will need for the next horizontal 
interrupt to shave few more cycles off the critical path and exit. 
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HSCROLL.S Horizontal 

Scrolling Demo 
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THE ONE LINE VERSION 
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Copyright 1988 ATARI CORP. 

6 

7 



9 

Started 9/12/88 .. Rob Zdybel 

8 
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.text 


16 




.include atari 


569 




.list 


11 
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• 
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HAROUARE CONSTANTS 


14 



9 



15 


■FFFF82B0 

vbaselo 

■ $ffff828d 

: Video Base Address (lo) 

16 


■FFFF828F 

linenid 

■ $ffff828f 

; Width of a scan-line (Words, minus 1) 

17 


■FFFF8265 

hscroll 

= $ffff8265 

j Horizontal scroll count (0 .. 15) 

18 






19 



9 



26 



9 

SYSTEM CONSTANTS 


21 






22 


■88868878 

vblvec 

■ $76 

; System VBlank Vector 

23 


-88888118 

ikbdvec 

■ $118 

; IKBO/MIOI (6858) Vector 

24 


■88868128 

hblvec 

■ $128 

; Horizontal Blank Counter (68981) Vector 

25 






26 
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27 



S 

LOCAL CONSTANTS 


28 



s 



29 






36 



$ 



31 



i 

System Initialization 


32 



• 

9 



33 



start: 



34 

88888868 

2A4F 


move.1 a7,a5 


35 

88886862 

2E7Cxxxxxxxx 


move.1 #mystack,a7 

i 6et Our Onn Local Stack 

36 

88886868 

2A608884 


move.l 4(a5).a5 

; a5 * basepage address 

37 

8888688C 

28208880 


move.1 TEXTSZ(a5),d6 


38 

88888618 

08A08814 


add.l DATASZ(a5),d8 


39 

88888814 

08AD881C 


add.l BSSSZ(a5),d6 


48 

88888818 

088088886188 


add.l #$180,dB 

; RAM req’d « text+bss+data+BasePageLength 

41 

88eeeeiE 

2868 


move.l d8,d4 

; d4 ■ RAM reqd 





Mshrink a5,d0 

; Return Excess Storage 


88888828 

2F80 

8 

move.l d8.-(sp) 



88888822 

2F0D 

8 

move.l a5,-(sp) 



88888824 

4267 

8 

clr.N -(sp) 





8 

(jemdos $4a,12 



88888826 

3F3C864A 

8 

move.H #$4a,-(sp) 



8888682A 

4E41 

8 

trap 81 





8 

.if $c <= 8 





- 

addq #$c,sp 





- 

.else 



68868820 

DEFC800C 

8 

add.H #$c,sp 


42 



8 

.endif 


43 



J 



44 



t 

f 

Other Initialization 


45 

88888638 

42A7 

J 

8 

Super 

clr.l -(sp) 

i enter supervisor mode 


88888832 

3F3C0026 

8 

move.H #$20,-(sp) 



88888836 

4E41 

8 

trap #1 



88888838 

5C4F 

8 

addq #6,sp 


46 

eeeeee3A 

2F80 

8 

move.l dB,-(sp) 

; WARNING - Old SSP saved on stack. 

47 



8 

Fgetdta 

6emdos $2f,2 



8888863C 

3F3C802F 

8 

move.H #$2f.-(sp) 



88688848 

4E41 

8 

trap #1 





8 

.if $2 <■ 8 



88888842 

544F 

6 

addq #$2.sp 





8 

.else 





- 

add.H #$2,sp 


48 



- 

.endif 


49 

88888844 

2848 


move.l d8,a4 


58 

88888846 

D8FC881E 


adda #30.a4 

Fsfirst #neofile,#8 

; a4 = Filename ptr 


8888884A 

3F3C8866 

8 

move.H #$8,-(sp) 



8888884E 

2F3Cxxxxxxxx 

6 

move.l #neofile.-(sp) 





8 

Gemdos $4e,8 



88888654 

3F3C604E 

8 

move.H #$4e,-(sp) 



88886658 

4E41 

8 

trap #1 





8 

.if $8 <= 8 



6888885A 

564F 

8 

addq #$8,sp 





8 

.else 





- 

add.H #$8,sp 


51 



- 

.endif 


52 

68886650 

4A40 


tst d0 


53 

86666655 

6660xxxx 


bmi abort 

Fopen a4,«0 

; IF (No NEO files) ABORT 


68686862 

3F3C8686 

8 

move.H #$8.-(sp) 



66866866 

2F0C 

8 

move.l a4,-(sp) 
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9 


Gemdos $3d,8 



00600668 

3F3C003D 

0 


move.H 

9$3d,-(sp) 



0060886C 

4E41 

0 


trap 






0 


.if $8 <= 8 



8860866E 

504F 

0 


addq 

9$8,sp 





0 


.else 






- 


add.H 

9$8.sp 


54 



- 


.endif 



55 

00600676 

4A46 



tst 

d0 


56 

57 

58 

66060672 

6600XXXX 



bmi 

abort ; 

IF (Error opening file) ABORT 

00060676 

33C0xxxxxxxx 



move 

d8.handle 







Fread 

d0,932128,9neobuff 


0000667C 

2F3Cxxxxxxxx 

6 


move.l 

itneobuff ,-(sp) 



00060682 

2F3C80607O80 

0 


move.l 

9$7d80,-(sp) 



00608088 

3F00 

§ 


move.H 

d0,-(sp) 





6 


Gemdos $3f,12 



0660668A 

3F3C003F 

0 


move.H 

9$3f,-(sp) 



0080868E 

4E41 

0 


trap 

81 





9 


.if $c <= 8 





- 


addq 

9$c,sp 





- 


.else 




60080096 

DEFC008C 

9 


add.H 

9$c,sp 


59 



9 


.endif 



68 

88806094 

4A80 



tst.l 

d0 


61 

00608096 

6600XXXX 



bmi 

abort ; 

IF (File Read Error) ABORT 






Fclose 

handle 



0606009A 

3F39xxxxxxxx 

9 


move.H 

handle,-(sp) 





6 


Gemdos $3e,4 



060800A0 

3F3C003E 

9 


move.H 

9$3e,-(sp) 



080680A4 

4E41 

9 


trap 

91 





6 


.if $4 <= 8 



060000A6 

584F 

6 


addq 

9$4,sp 





9 


.else 






- 


add.H 

9$4,sp 


62 



- 


.endif 



63 

006060A8 

4A40 



tst 

d0 


64 

006000AA 

6B00XXXX 



bmi 

abort ; 

IF (Error Closing a file) ABORT 

65 








66 

060068AE 

45F9xxxxxxxx 



lea 

neobuff*4,a2 


67 

660006B4 

41F88240 



lea 

palette,a0 


68 

00080068 

43F9xxxxxxxx 



lea 

oldpal.al 


69 

8008066E 

303C808F 



move 

915.d0 


70 

000000C2 

3200 


.ploop: 

move.H 

(a0),(al) + 

save old color palette 

71 

000860C4 

30OA 



move.H 

(a2)*,(a0)* 

create nen color palette 

72 

73 

74 

000000C6 

51C8FFFA 



dbra 

d0,.ploop 

000860CA 

303C88A6 



move 

9168,d0 : 

Double each display line 

75 

000000CE 

41F9xxxxxxxx 



lea 

bigbuff,a8 


76 

60000804 

43F9xxxxxxxx 



lea 

neobuff*128,31 


77 

800068OA 

343C00C7 



move 

9199,d2 


78 

000800DE 

323C0027 


.1 1nip : 

move 

939.dl ; 

FOR (286 Lines) 00 

79 

800000E2 

21916808 


.dublp: 

move.1 

(al),Ca0,d6) j 

duplicate line 

88 

000000E6 

2009 



move.l 

(al)*.(a0)+ 


81 

000600E8 

51C9FFF8 



dbra 

dl..dublp 


82 

600000EC 

D8C8 



adda 

d0,a0 


83 

84 

85 

600006EE 

51CAFFEE 



dbra 

d2..1inip 


600008F2 

41F9xxxxxxxx 



lea 

baseaddr.aB 


86 

008008F8 

43F9xxxxxxxx 



lea 

xoffset.al 


87 

000806FE 

45F9xxxxxxxx 



lea 

bigbuff,a2 


88 

80080104 

383C0669 



move 

99. d0 


89 

60060168 

32FC8080 


.strip: 

move 

98.(al)* ; 

FOR (16 Strips) 00 Init base and offset 

90 

6006018C 

20CA 



move.l 

a2,(a8)* 


91 

0808010E 

O4FC1960 



adda 

9320*20,a2 


92 

93 

94 

00080112 

51C8FFF4 



dbra 

d8,.strip 


00060116 

23F80118xxxxxxxx 



move. 1 

ikbdvec.oldikbd 


95 

qc 

0008011E 

21FCxxxxxxxx0000 



move.l 

9ikbd. ikbdvec. ; 

IPL 5 hack for IKBO/MIDI 

30 

97 

00600126 

23F80070XXXXXXXX 



move.l 

vblvec.oldvbl 


98 

0080012E 

21FCxxxxxxxx0000 



move. 1 

9vbl,vblvec ; 

Capture System 06lank Interrupt 

99 







100 

00800136 

21FCxxxxxxxx0000 



move.l 

9hbl.hblvec ; 

Capture HBlank Interrupt 

101 

0060013E 

08F88008FA13 



bset.b 

90,imra 

102 

00606144 

88F80008FA07 



bset.b 

90.iera ; 

Enable Hblank 

103 








184 




• 




185 




j 

Scrolling Demo loop 


106 




j 




107 




navelp: 









Bconstat CON ; 

Keyboard Polling 


6080014A 

3F3C8002 

9 


move.H 

9C0N.-(sp) 





9 


Bios 1. 

4 



8000014E 

3F3C0001 

9 


move.H 

9$l,-(sp) 



60608152 

4E40 

9 


trap 

913 





9 


.if $4 <= 8 



00000154 584F 


addq #$4,sp 
.else 


add.w #$4,sp 
.endif 


108 
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189 

80868156 

4A40 


tst 

d8 


110 

80680158 

6700XXXX 


beq 

noexit ; 

IF (Keyboard Input Available) THEN 





Bconin 

CON 



0088015C 

3F3C8882 

e 

move.H 

acoN.-(sp) 





© 

Bios 2. 

4 



00680166 

3F3C6062 

e 

move.H 

#$2,-(sp) 



88880164 

4E40 

e 

trap 

#13 





© 

.if $4 

<= 8 



88008166 

584F 

© 

addq 

#$4,sp 





© 

.else 






- 

add.H 

#$4,sp 


111 



- 

.endif 



112 

88086168 

B03C0803 


cmp.b 

#‘C'-64,d0 


113 

8880816C 

6700xxxx 


beq 

exit 

CTRL-C ==> EXIT 

114 



noexit: 




115 

80808178 

6808 


bra 

navelp 


116 



exit: 




117 



9 




118 



# 

System Tear-Donn 


119 



• 

9 




126 

00008172 

08680800FA87 


bcir.b 

#8,iera 


121 

00088178 

08B80000FA13 


bclr.b 

#8, imra ; 

Disable Hblank 

122 

8006817E 

21F9xxxxxxxx0068 


move.1 

oldikbd.ikbdvec ; 

Restore System IK8D/HI0I Interrupt 

123 

00068186 

21F9xxxxxxxx0000 


move.l 

oldvbl.vblvec ; 

Restore System VBlank Interrupt 

124 











Gettime 





§ 

Xbios 

$17.2 



0088818E 

3F3C0017 

6 

move.H 

#$17,-(sp) 



08088192 

4E4E 

0 

trap 

#14 





6 

.if $2 

<= 8 



06800194 

544F 

0 

addq 

#$2,sp 





6 

.else 






- 

add.H 

#$2,sp 


125 



- 

.endif 



126 

00806196 

23C8xxxxxxxx 


move.l 

d6,vbltemp ; 

Get IKBO Oate/Time 





Tsettime d0 



6006019C 

3F00 

0 

move 

de.-(sp) 





8 

6emdos 

$2d,4 



0008819E 

3F3C802O 

6 

move.H 

#$2d,-Csp) 



000001A2 

4E41 

6 

trap 

#1 





6 

.if $4 <= 8 



000881A4 

584F 

6 

addq 

#$4,sp 





6 

.else 






- 

add.H 

#$4,sp 


127 



- 

.endif 







Tsetdate vbltemp ; 

Set GEMOOS Time and Oate 


000001A6 

3F39xxxxxxxx 

0 

move 

vbltemp,-(sp) 





6 

Gemdos 

$2b,4 



000001AC 

3F3C0026 

i 

move.H 

#$2b,-(sp) 



000081B0 

4E41 

0 

trap 

#1 





0 

.if $4 

<= 8 



00008162 

584F 

6 

addq 

#$4.sp 





6 

.else 






- 

add.H 

#$4,sp 


128 



- 

.endif 



129 







138 

00000164 

41F9xxxxxxxx 


lea 

oldpal.aO 


131 

600061BA 

43F88240 


lea 

palette,al 


132 

000061BE 

383C000F 


move 

#15,d0 


133 

800081C2 

3208 

.unpip: 

move.H 

(a0)*,(al)* 


134 

000801C4 

51C8FFFC 


dbra 

d0,.unplp ; 

restore old color palette 

135 










abort: 

User 

; 

return to user mode 




© 

Gemdos 

$28.6 



000061C8 

3F3C0820 

© 

move.H 

#$20,-(sp) 



800001CC 

4E41 

9 

trap 

#1 





9 

.if $6 

<«= 8 



800001CE 

5C4F 

9 

addq 

#$6,sp 





9 

.else 






- 

add.H 

#$6,sp 


136 



- 

.endif 







Pterm0 

; 

return to GEMOOS 


00808100 

4267 

9 

clr.H 

-(sp) 



68808102 

4E41 

9 

trap 

#1 


137 

88808104 

4AFC 

9 

illegal 


138 







139 







148 



• 

9 

UBL 

Uertical-Blank Interrupt Server 

141 







142 



vbl: 




143 

80800106 

48E7C0E0 


movem. 

d0-dl/a0-a2,-(sp) 


144 







145 

00680100 

41F9xxxxxxxx 


lea 

video.a0 : 

a8 = Oisplay list (scroll.base) 

146 

008001E0 

43F9xxxxxxxx 


lea 

xoffset.al ; 

al = Xoffset list 

147 

008801E6 

45F9xxxxxxxx 


lea 

baseaddr,a2 : 

a2 = Base address list 

148 

000001EC 

32308069 


move 

#9,di 


149 



.reglp: 


; 

FOR (10 scrolling regions) 00 

150 

000001F0 

3011 


move 

(al).dB 

d0 = current Xoffset 

151 

060801F2 

88818080 


btst.1 

#0,dl 


152 

800081F6 

6680xxxx 


bne 

.odd 


153 

000001FA 

5240 


addq 

#l.d6 ; 

EVEN —> Increment 
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154 

868881FC 

887C60A0 


crop 

#160,d0 



155 

86888268 

6O60XXXX 


bit 

.join 



156 

68888284 

7868 


moveq 

#8,d0 : 

Hrap-up 


157 

08888286 

6080xxxx 


bra 

.join 



158 

8888828A 

5348 

.odd: 

subq 

#i,d0 ; 

0D0 —> Decrement 


159 

8888828C 

6C86xxxx 


bge 

.join 



168 

88888218 

303C809F 


move 

#159,d0 ; 

Wrap-down 


161 

88888214 

3288 

.join: 

move 

d0,(al) ; 

New Xoffset 


162 

88888216 

E248 


asr 

#i.de 



163 

08888218 

C8BC8000FFF8 


and. 1 

#$0fff8,d8 ; 

d8 = byte offset Mi thin line 


164 

8888821E 

D09A 


add. 1 

(a2)+.d0 ; 

d0 = Regions video base 


165 

08888228 

2688 


move.1 

d0,(a8) 



166 

88888222 

3819 


move 

(ai)+,d0 



167 

88886224 

C87C868F 


and 

#$0f,d0 ; 

d0 = Regions horizontal scroll count 

168 

88688228 

1888 


move.b 

d0,(a0) 



169 

8808822A 

5888 


addq.l 

#4,a0 



178 

0800822C 

51C9FFC2 


dbra 

dl,.reglp 



171 








172 

88888238 

41F9xxxxxxxx 


lea 

video,a8 



173 

88688236 

1018 


move.b 

(a0)+,d8 



174 

88888238 

11C88265 


move.b 

d0,hscrol1 



175 

8088023C 

11088285 


move.b 

(a8)+,vcounthi 



176 

88888246 

11088287 


move.b 

(a8)+.vcountmid 



177 

88888244 

11088289 


move.b 

(a0)+,vcountlo ; 

Initialize first region 


178 








179 

88888248 

323C8056 


move 

#80.dl ; 

Double normal ST line nidth 


188 

8888024C 

4A88 


tst.b 

d0 



181 

0886824E 

6780xxxx 


beq 

.zero ; 

IF (non-zero scroll count) Reduce 

line width 

182 

86880252 

5941 


subq 

#4,dl 



183 

88088254 

11C1828F 

.zero: 

move.b 

dl.linewid 



184 








185 

88888258 

2018 


move.l 

Ca8)+,d0 



186 

8888825A 

El 98 


rol.l 

#8,d8 



187 

8688825C 

23C0xxxxxxxx 


move.l 

d0.videodata 2 

Init next lines data 


188 

88808262 

23C8xxxxxxxx 


move.l 

aB.videoptr ; 

Init display list ptr 


189 








198 

08808268 

11FC0608FA1B 


move.b 

#0,tbcr 



191 

8888826E 

11FC0014FA21 


move.b 

#20,tbdr 2 

Interrupt every twenty HBlanks 


192 

88888274 

11FC0608FA1B 


move.b 

#8.tbcr 



193 








194 

8888827A 

4COF0703 


movem.1 

(sp)+.d0-dl/a0-a2 



195 

8888827E 

4EF9 


.dc.N 

$4ef9 



196 

88868288 

88880888 

oldvbl: 

.dc.l 

8 2 

JMP (Old-Vblank) 


197 

88880284 

4AFC 


illegal 




198 








199 



* 





268 



2 

IKBD 

IKBO/MIDI Interrupt Server 


281 



; 





282 



ikbd: 





283 

88080286 

3F80 


move 

d8,-(sp) 



284 








285 

88088288 

40C0 


move 

sr,d0 



286 

8800028A 

C07CF8FF 


and 

#$f8ff.de 



287 

8606828E 

807C0508 


or 

#$588,d0 



288 

88888292 

46C8 


move 

dB.sr ; 

Set IPL down to 5 


289 








218 

86086294 

301F 


move 

(sp)+,d0 



211 

88088296 

4EF9 


.dc.H 

$4ef9 



212 



oldikbd: 




213 

88088298 

88088888 


.dc.l 

8 ; 

JMP (Old-IKBO) 


214 

8688829C 

4AFC 


illegal 




215 








216 



J 





217 



M 

HBL 

*0NE LINE* Horizontal-Blank Interrupt Server 


218 



B 





219 



hbl: 





228 

8000029E 

48E78880 


movem. 1 

d0/a0.-(sp) ; 

(44+28=72) 


221 








222 

888882A2 

2839xxxxxxxx 


move.l 

videodata,d8 ; 

d0 = vcount/scroll (20) 


223 

68888288 

41F88205 


lea 

vcounthi.aB ; 

a8 = movep base (8) 


224 

000882AC 

11C88265 


move.b 

d0,hscrol1 2 

set HScroll (12) 


225 

888882B8 

01C80000 


movep. 1 

d0,Ca8) 2 

set UideoBase (24) 


226 






(total = 136+ cycles) 

227 

88888284 

4A00 


tst.b 

d0 



228 

80888286 

6780xxxx 


beq 

.zero ; 

IF (non-zero scroll count) Reduce 

line width 

229 

888882BA 

11FC004C828F 


move.b 

#76,lineHid 



238 

800002C8 

6800XXXX 


bra 

.join 



231 

808082C4 

11FC8050828F 

.zero: 

move. b 

#88,1inewid 



232 



.join: 





233 

800002CA 

2879xxxxxxxx 


move. 1 

videoptr,a0 



234 

80060208 

2818 


move. 1 

(a0)+,d8 



235 

80608202 

E198 


rol.l 

#8,d0 



236 

80800204 

23C8xxxxxxxx 


move.l 

d0,videodata ; 

Init next regions data 


237 

800682OA 

23C8xxxxxxxx 


move. 1 

a0,videoptr 


238 








239 

880862E8 

4COF0101 


movem.1 

(sp)+,d8/a8 



248 

806662E4 

08B80000FA0F 


bclr.b 

#0,isra ; 

Clear In-Service bit 


241 

000002EA 

4E73 


rte 




242 








243 



; 





244 



; 

DATA STORAGE 







hscroll.s 
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245 



; 



246 

600082EC 


.data 



247 



neof He: 


: NEO filename search string 

248 

60088068 

2A2E6E656F00 

.dc.b 

”*.neo'\0 

249 






250 



.even 



251 






252 



; 



253 



; RANDOM OATA STORAGE 


254 



; 



255 

08086606 


.bss 



256 






257 



oldpal: 



258 

80000600 

=00000010 

.ds.l 

16 

; Original color palette 

259 



handle: 


; Active Handle 

266 

06808840 

-06080001 

.ds.H 

1 


261 






262 



baseaddr: 


; Image Base address for each strip 

263 

68808042 

=8808080A 

.ds.l 

16 


264 



xoffset: 


; Pixel-offset for each strip 

265 

0080886A 

=0880008A 

.ds.H 

10 

266 



video: 


i HScroll and Uideo Base address for each strip 

267 

8088087E 

-0000000A 

.ds.l 

16 


268 



videoptr: 


; Oisplay list ptr 

269 

088808*6 

=00000001 

.ds.l 

1 


276 



videodata: 


: Next regions display info 

271 

000000AA 

=80600801 

.ds.l 

1 


272 






273 



neobuff: 


; NEO-Image Buffer 

274 

868608AE 

=88087086 

.ds.b 

32128 


275 



bigbuff: 


; Mega-Image Buffer 

276 

88687E2E 

=0008FA80 

.ds.b 

2*32660 


277 






278 



vbltemp: 


; Ublank Temporary Storage 

279 

0081782E 

=88000061 

.ds.l 

1 


280 






281 

80817832 

=86006160 

.ds.l 

256 

; (stack body) 

282 



mystack: 



283 

88817C32 

=80606861 

.ds.l 

1 

; Local Stack Storage 

284 






285 



.end 
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.dublp 

800000E2 

t 

dtr 

06000018 

ea 

tacr 

FFFFFA19 

ea 

.join 

80000214 

t 

end_os 

000604FA 

ea 

tadr 

FFFFFA1F 

ea 

Join 

000002CA 

t 

etv_critic 

06080484 

ea 

tbcr 

FFFFFA1B 

ea 

.linlp 

000800OE 

t 

etv_term 

06006488 

ea 

tbdr 

FFFFFA21 

ea 

.odd 

0000020A 

t 

etv_timer 

66006400 

ea 

tcdcr 

FFFFFA10 

ea 

.ploop 

000000C2 

t 

etv_xtra 

6600040C 

ea 

tcdr 

FFFFFA23 

ea 

.reglp 

808001F0 

t 

exec_os 

000004FE 

ea 

tddr 

FFFFFA25 

ea 

.strip 

00000188 

t 

exit 

60606172 

t 

themd 

0860048E 

ea 

.unplp 

000001C2 

t 

fifo 

FFFF8606 

ea 

trkreg 

80606082 

ea 

.zero 

00000254 

t 

flock 

8060843E 

ea 

trp!4ret 

86608486 

ea 

.zero 

000002C4 

t 

giaamp 

60060068 

ea 

tsr 

FFFFFA20 

ea 

AUX 

00000001 

ea 

gibamp 

60066669 

ea 

ucr 

FFFFFA29 

ea 

BBASE 

00000018 

a 

gicamp 

6606866A 

ea 

udr 

FFFFFA2F 

ea 

BLEN 

0000001C 

a 

gicrnvlp 

0000000C 

ea 

vbasehi 

FFFF8281 

ea 

8PSZ 

00080180 

ea 

gifienvlp 

80060606 

ea 

vbaselo 

FFFF820O 

ea 

6SIZE 

0000080A 

a 

gimixer 

66088807 

ea 

vbasemid 

FFFF8203 

ea 

8SSSZ 

0080001C 

ea 

ginoise 

66080866 

ea 

vbl 

80666106 

t 

CHOLINE 

00000080 

a 

giporta 

6606608E 

ea 

vblsem 

66060452 

ea 

CON 

00000002 

ea 

giportb 

6606660F 

ea 

vbl temp 

8001782E 

b 

CR 

00000800 

ea 

giread 

FFFF8800 

ea 

vblvec 

60060678 

ea 

CURSJBLINK 

00000002 

ea 

giselect 

FFFF8800 

ea 

vcounthi 

FFFF8205 

ea 

CURSJ5ETRATE 

00800005 

ea 

gitoneac 

86866061 

ea 

vcountlo 

FFFF8209 

ea 

CURSJ1I0E 

80000000 

ea 

gitoneaf 

86006000 

ea 

vcountmid 

FFFF8207 

ea 

CURS_NOBLINK 

00080003 

ea 

gitonebc 

60666063 

ea 

video 

6086807E 

b 

CURS-SETRATE 

00808004 

ea 

gitonebf 

60006082 

ea 

videodata 

868666AA 

b 

CURS-SHOM 

00000001 

ea 

gitonecc 

60066065 

ea 

videoptr 

808886A6 

b 

OATASZ 

00000014 

ea 

gitonecf 

80006084 

ea 

vr 

FFFFFA17 

ea 

OBASE 

80000010 

a 

giwrite 

FFFF8802 

ea 

navelp 

6060814A 

t 

DLEN 

80800014 

a 

gpip 

FFFFFA01 

ea 

xoffset 

8080606A 

b 

OSIZE 

00000006 

a 

gpo 

60000040 

ea 

xrts 

08808888 

ea 

OTA 

00000020 

a 

handle 

60060646 

b 




ENVIR 

0080802C 

a 

hbl 

6006029E 

t 




FILEJD 

00000000 

a 

hblvec 

06000120 

ea 




HEAOSIZE 

0080081C 

ea 

hdv_boot 

0080047A 

ea 




HITPA 

00000004 

a 

hdv_bpb 

66080472 

ea 




IKBD 

00008004 

ea 

hdv_init 

0800046A 

ea 




LF 

0008000A 

ea 

hdv_mediach 

6080847E 

ea 




LOWTPA 

00000000 

a 

hdv_rw 

66068476 

ea 




MIDI 

00000003 

ea 

hscroll 

FFFF8265 

ea 




MYDTA 

08008020 

ea 

iera 

FFFFFA07 

ea 




PARENT 

00000024 

a 

ierb 

FFFFFA09 

ea 




PRT 

00000008 

ea 

ikbd 

60608286 

t 




RAWCON 

00008005 

ea 

ikbdvec 

00800118 

ea 




SSIZE 

0000000E 

a 

imra 

FFFFFA13 

ea 




TAB 

00000009 

ea 

imrb 

FFFFFA15 

ea 




TBASE 

00000088 

a 

ipra 

FFFFFA0B 

ea 




TEXTSZ 

0000000C 

ea 

iprb 

FFFFFA0D 

ea 




TLEN 

0000000C 

a 

isra 

FFFFFA0F 

ea 




TSIZE 

00000002 

a 

isrb 

FFFFFAil 

ea 




XXXI 

00000012 

a 

keybd 

FFFFFC02 

ea 




XXX2 

60000016 

a 

keyctl 

FFFFFC00 

ea 




XXX3 

8000001A 

a 

linewid 

FFFF820F 

ea 




XXXX 

60000028 

a 

memcntlr 

06000424 

ea 




_md 

8008049E 

ea 

nemconf 

FFFF8001 

ea 




_autopath 

000004CA 

ea 

memval2 

0680843A 

ea 




_bootdev 

00000446 

ea 

meravalid 

66080426 

ea 




_bufl 

080004B2 

ea 

mfp 

FFFFFA00 

ea 




_cmdload 

00080482 

ea 

midi 

FFFFFC06 

ea 




_drvbits 

000004C2 

ea 

midictl 

FFFFFC04 

ea 




_dskbufp 

000604C6 

ea 

mystack 

60017C32 

b 




_frclock 

08000466 

ea 

neobuff 

006080AE 

b 




_fverify 

08000444 

ea 

neofile 

00006086 

d 




_hz_200 

880004BA 

ea 

noexit 

60606170 

t 




_membot 

00000432 

ea 

nvbls 

00888454 

ea 




-/nemtop 

06808436 

ea 

oldikbd 

08808298 

t 




_nflops 

000084A6 

ea 

oldpal 

88860668 

b 




-prt-cnt 

000004EE 

ea 

oldvbl 

86008286 

t 




-prtabt 

000004F0 

ea 

palette 

FFFF8240 

ea 




_shell_p 

000004F6 

ea 

palmode 

08006448 

ea 




_sysbase 

000004F2 

ea 

phystop 

0880042E 

ea 




_timr_ms 

00000442 

ea 

prv_aux 

06006512 

ea 




_u_bas_ad 

6060044E 

ea 

prv_auxo 

8608650E 

ea 




.vbclock 

00600462 

ea 

prv_lst 

0600050A 

ea 




_vbl_list 

808004CE 

ea 

prv_lsto 

06088506 

ea 




«vblqueue 

00006456 

ea 

resualid 

06886426 

ea 




abort 

000001C8 

t 

resvector 

0666042A 

ea 




aer 

FFFFFA03 

ea 

rezmode 

FFFF8268 

ea 




baseaddr 

60606042 

b 

rsr 

FFFFFA2B 

ea 




bigbuff 

00807E2E 

b 

sav_context 

080084AE 

ea 




cmdreg 

80686080 

ea 

save_row 

088084AC 

ea 




colorptr 

6066645A 

ea 

savptr 

000004A2 

ea 




constate 

608064A8 

ea 

scr 

FFFFFA27 

ea 




conterm 

00068484 

ea 

scr_dump 

00000502 

ea 




criticret 

0060648A 

ea 

screenpt 

0000845E 

ea 




datareg 

00806086 

ea 

secreg 

08000884 

ea 




ddr 

FFFFFA05 

ea 

seekrate 

00006446 

ea 




defshiftmd 

6080644A 

ea 

sshif tmd 

0666644C 

ea 




diskctl 

FFFF8604 

ea 

start 

00000666 

t 




dmahi 

FFFF8609 

ea 

strobe 

66000620 

ea 




dmaio 

FFFF860D 

ea 

sHu_vec 

0008846E 

ea 




dm amid 

FFFF860B 

ea 

syncmode 

FFFF820A 

ea 
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1 


2 



9 

NEOUALL 

.S Horizontal and Vertical Scrolling Demo 

3 

4 



i 

t 

Copyright 1988 ATARI CORP 


5 

6 



9 

Started 

10/18/88 .. Rob Zdybel 

7 

8 




.text 



9 




.include atari 


569 




.list 



16 







11 



9 




12 



9 

HARDUARE CONSTANTS 


13 



9 




14 


'FFFF820O 

vbaselo 

s 

$ffff820d 

; Video Base Address (lo) 

15 


*FFFF820F 

linenid 

s 

$ffff820f 

; Width of a scan-line (Uords, minus 1) 

16 


=FFFF8265 

hscroll 

= 

$ffff8265 

; Horizontal scroll count (6 .. 15) 

17 







18 



i 




19 



9 

% 

SYSTEM CONSTANTS 


20 



1 




21 


=00000070 

vblvect 

s 

$70 ; 

System VBlank Vector 

22 







23 


•FFFFFFCE 

movec 

r 

-50 ; 

LineA Mouse-Motion Vector offset 

24 


C FFFFFDA6 

cur_x 

= 

-602 i 

LineA Current mouse Xpos 

25 


«FFFFFDA8 

cur_y 

= 

-606 ; 

LineA Current mouse Ypos 

26 







27 



9 




28 



9 

LOCAL CONSTANTS 


29 



t 




30 







31 



9 




32 



9 

System Initialization 


33 



9 




34 



start: 




35 

06060600 

2A4F 


move.l 

a7,a5 


36 

00000002 

2E7Cxxxxxxxx 


move.l 

Haystack,a7 

Get Our Onn Local Stack 

37 

00000008 

2A6D0004 


move.l 

4(a5),a5 ; 

a5 = basepage address 

38 

0000000C 

202O666C 


move.l 

TEXTSZ(a5),d0 


39 

00006010 

O0AO0014 


add. 1 

OATASZCaS),d0 


46 

00006014 

O0AO081C 


add.l 

BSSSZ(a5).d0 


41 

00000018 

006006060160 


add.l 

H$100,d0 ; 

RAM req‘d * text+bss+data+BasePageLength 

42 

0000001E 

2806 


move.l 

d0.d4 ; 

d4 «= RAM req'd 





Mshrink 

a5.d0 ; 

Return Excess Storage 


00006026 

2F00 

6 

move.l 

d0,-(sp) 



00000022 

2F0D 

6 

move.l 

a5,-(sp) 



00660024 

4267 

6 

clr.H 

-(sp) 





6 

Gemdos $4a.l2 



00060026 

3F3C604A 

§ 

move.H 

H$4a,-(sp) 



8068062A 

4E41 

6 

trap 

Hi 





e 

.If $c <= 8 





- 

addq 

H$C,Sp 





- 

.else 




0066082C 

DEFC808C 

6 

add.H 

H$C,sp 


43 



8 

.endif 



44 



9 




45 



9 

Other Initialization 


46 



9 








Super 

J 

enter supervisor mode 


00000030 

42A7 

8 

clr.l 

-(sp) 



00000032 

3F3C8020 

8 

move.H 

#$20,-(sp) 



00000036 

4E41 

8 

trap 

HI 



00000038 

5C4F 

8 

addq 

H6,sp 


47 

0080003A 

2F00 

8 

move.l 

d0,-(sp) ; 

WARNING - Old SSP saved on stack. 

48 











Fgetdta 






8 

Gemdos $2f,2 



80808030 

3F3C002F 

8 

move.H 

H$2f,-(sp) 



00008840 

4E41 

8 

trap 

HI 





8 

.if $2 

<= 8 



00600042 

544F 

8 

addq 

H$2,sp 





8 

.else 






- 

add.H 

H$2,sp 


49 



- 

.endif 



50 

00800844 

2840 


move.l 

d0,a4 


51 

00880846 

O8FC801E 


adda 

H38,a4 ; 

a4 = Filename ptr 

52 

8068064A 

7880 


moveq 

H0,d4 ; 

d4 = Loop Count 





Fsfirst 

#neofiles.80 



0068804C 

3F3C6680 

8 

move.H 

#$0,-(sp) 



60860658 

2F3Cxxxxxxxx 

8 

move.l 

Hneofiles.-(sp) 





8 

Gemdos $4e f 8 



60600856 

3F3C064E 

8 

move. h 

«$4e,-(sp) 



6068065A 

4E41 

8 

trap 

HI 





8 

.if $8 

<= 8 



6088065C 

504F 

8 

addq 

H$8,sp 





8 

.else 






- 

add.H 

tt$8.sp 


53 



- 

.endif 



54 



.neoloop: 


FOR (Nine NEO Files) DO 

55 

00060656 

4A46 


tst 

de 


56 

88660668 

6B80xxxx 


bmi 

abort 

! IF (No more NEO files) ABORT 
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Fopen a4.©0 


60880864 

3F3C8668 

© 

move.H ©$0,-(sp) 


60000668 

2F8C 

© 

move.l a4.-(sp) 




© 

Gemdos $3d,8 


0008066A 

3F3C003O 

© 

tnove.w ©$3d,-(sp) 


0080066E 

4E41 

© 

trap ©1 




© 

.if $8 <= 8 


86860676 

504F 

© 

addq #$8.sp 




© 

.else 




- 

add.w #$8,sp 

57 



- 

.endif 

58 

06868672 

4A48 


tst d8 

59 

60666074 

6808xxxx 


bmi abort ; IF (Error opening a file) ABORT 

66 

00668078 

41F9xxxxxxxx 


lea handlist,a0 

61 

0080607E 

31884888 


move d8,(a0.d4) ; Save the Handle 

62 

80660682 

5444 


addq ©2,d4 

63 

80060884 

887C6818 


cap ©16,d4 

64 

88600688 

6E88xxxx 


bgt .gotnine 

Fseek ©128,d0.©8 ; Skip NEO Header 


0086068C 

3F3C8000 

© 

move.H ©$0.-(sp) 


06000690 

3F60 

© 

move.H d0,-(sp) 


60006092 

2F3C88086886 

© 

move.l ©$88,-(sp) 




© 

Gemdos $42,18 


06006098 

3F3C8642 

© 

aove.w #$42,-(sp) 


0080609C 

4E41 

© 

trap ©1 




© 

.if $a <= 8 




- 

addq ©$a,sp 




- 

.else 


8080689E 

OEFC088A 

© 

add.H ©$a,sp 

65 



© 

.endif 

66 

086808A2 

4A80 


tst.l d0 

67 

880000A4 

6660XXXX 

© 

bmi abort i IF (File Seek Error) ABORT 

Fsnext 

Gemdos $4f,2 


880886A8 

3F3C884F 

© 

move.H ©$4f,-(sp) 


080800AC 

4E41 

© 

trap #1 




© 

.if $2 <= 8 


868880AE 

544F 

© 

addq ©$2,sp 




© 

.else 




- 

add.w ©$2,sp 

68 



- 

.endif 

69 

00888068 

68AC 


bra .neoloop 

70 




.gotnine: 





Fread d0.©128,©bigbuff 


60880662 

2F3Cxxxxxxxx 

© 

move.l ©bigbuff,-(sp) 


00060688 

2F3C60086088 

© 

move.l ©$80,-(sp) 


0006088E 

3F00 

© 

move.H d0,-(sp) 




© 

Gemdos $3f,12 


000600C0 

3F3C803F 

© 

move.H ©$3f,-(sp) 


060000C4 

4E41 

© 

trap ©1 




© 

.if $c <= 8 




- 

addq ©$c.sp 




- 

.else 


000000C6 

DEFC080C 

© 

add.w ©$c,sp 

71 



© 

.endif 

72 

608088CA 

4A80 


tst.l d8 

73 

688888CC 

6680xxxx 


bmi abort ; IF (File Read Error) ABORT 

74 

00000808 

45F9xxxxxxxx 


lea bigbuff*4.a2 

75 

80088606 

41F88240 


lea palette,a6 

76 

8868880A 

43F9xxxxxxxx 


lea oldpal,al 

77 

600806E8 

303C888F 


move #15.d0 

78 

806888E4 

3200 


.ploop: move.H (a8),(al)+ ; save old color palette 

79 

666606E6 

30OA 


move.H (a2)+,(a0)+ ; create new color palette 

86 

086086E8 

51C8FFFA 


dbra d8,.ploop 

81 




82 

008006EC 

23FCxxxxxxxxxxxxxxxx 


move.l ©bigbuff.buffptr 

83 

860608F6 

7E86 


moveq ©0,d7 ; d7 = Row Count 

84 

000606F8 

49F9xxxxxxxx 


.rowlp: lea threebuf.a4 ; FOR (Three rows) DO 

85 

808606FE 

4BF9xxxxxxxx 


lea handlist.a5 

86 

08608184 

0AC7 


adda d7,a5 

87 

00680166 

3C3C0082 


move ©2.d6 ; d5 = Column Count 





.redlp: Fread (a5)♦,©32000,a4 ; FOR (3 Files) DO Read into temp buff 


0068810A 

2F0C 

© 

move.l a4.-(sp) 


0066810C 

2F3C86887O08 

© 

move.l #$7d08,-(sp) 


00608112 

3F10 

© 

move.H (a5)*.-(sp) 




© 

Gemdos $3f.l2 


60886114 

3F3C803F 

© 

move.H ©$3f,-(sp) 


60868118 

4E41 

© 

trap #1 




© 

.if $c <= 8 




- 

addq ©$c,sp 




- 

.else 


8086011A 

OEFC808C 

© 

add.w ©$c.sp 

88 



© 

.endif 

89 

6086611E 

4A80 


tst.l d0 

90 

68888126 

6B00xxxx 


bmi abort ; IF (File Read Error) ABORT 

91 

80888124 

O8FC7D00 


adda ©32000,a4 

92 

88866128 

51CEFFE0 


dbra d6,.redlp 

93 





94 

6888812C 

43F9xxxxxxxx 


lea threebuf,al 

95 

80866132 

45F9xxxxxxxx 


lea threebuf+32000, a2 

96 

88880138 

47F9xxxxxxxx 


lea threebuf+64800,a3 
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97 

0800013E 

2079xxxxxxxx 

98 

08000144 

3C3C00C7 

99 

00000148 

3A3C0827 

160 

0060014C 

2009 

101 

8080614E 

51C0FFFC 

102 

06606152 

3A3C0627 

103 

00000156 

260A 

104 

86006158 

51C0FFFC 

10S 

6000615C 

3A3C0027 

106 

00000166 

2006 

107 

08000162 

51CDFFFC 

108 

00060166 

51CEFFE0 

109 

0000016A 

23C8xxxxxxxx 

110 

00060178 

5C47 

111 

00800172 

BE7C000C 

112 

00080176 

6F80 

113 



114 

08080178 

7816 

115 

8006617A 

49F9xxxxxxxx 

116 

00000188 

3F344006 


00000184 

3F3C863E 


00000188 

4E41 


8000018A 

584F 

117 



118 

0068018C 

4A40 

119 

0800018E 

6608xxxx 

120 

00000192 

5544 

121 

00060194 

6AEA 

122 



123 

00000196 

4EB9xxxxxxxx 

124 



125 

0000019C 

23F80070xxxxxxxx 

126 

080001A4 

21FCxxxxxxxx0000 

127 



128 



129 



136 



131 

000001AC 

3F3C0862 


000001B0 

3F3C0001 


006001B4 

4E4D 


000001B6 

584F 

132 



133 

00000168 

4A40 

134 

000601BA 

6760XXXX 


000601BE 

3F3C0002 


000601C2 

3F3C0602 


006001C6 

4E40 


006081C8 

584F 

135 



136 

600001CA 

B03C0003 

137 

808881CE 

6700xxxx 

138 



139 

00006102 

6608 

140 



141 



142 



143 



144 

00000104 

21F9xxxxxxxx6860 

145 



146 

080061OC 

4EB9xxxxxxxx 

147 



148 

060061E2 

41F9xxxxxxxx 

149 

060001E8 

43F88240 

150 

086881EC 

303C000F 

151 

060001F6 

3208 

152 

606081F2 

51C8FFFC 

153 

006001F6 

3F3C0020 


066061FA 

4E41 


606061FC 

5C4F 


Page 3 



move. 1 

buffptr,a0 


move 

#199,d6 

Iinlp: 

move 

#39,d5 

tl: 

move. 1 

(ai)+,(a0)+ 


dbra 

d5,.tl 


move 

#39,d5 

t2: 

move.1 

(a2)+,(a0)+ 


dbra 

d5,.t2 


move 

#39,d5 

t3: 

move.1 

(a3)*,(a0)+ 


dbra 

d5,.t3 


dbra 

d6,.Iinlp 


move.l 

a0,buffptr 


addq 

#6,d7 


crap 

#12.d7 


ble 

.rowlp 


moveq 

#16,d4 


lea 

handlist.a4 

close: 

move 

(a4,d4),-(sp) 


Gemdos 

$3e,4 


move.N 

#$3e,-(sp) 


trap 

#1 


.if $4 

<= 8 


addq 

.else 

#$4,sp 


add.H 

.endif 

#$4.sp 


tst 

d0 


bmi 

abort 


subq 

#2,d4 


bpl 

.close 


jsr 

initmaus 


move.l 

vblvect.oldvbl 


move.1 

#vbl,vblvect 


Scrolling Demo loop 


navelp: 

Bconstat CON 


3 

move.N 

ttCON.-(sp) 

3 

Bios 1.4 

3 

move.N 

#$i,-(sp) 

3 

trap 

#13 

3 

.if $4 <= 8 

3 

addq 

#$4,sp 

3 

.else 


- 

add.N 

#$4,sp 

- 

.endif 



tst 

d0 


beq 

noexit 


Bconin 

CON 

3 

move.N 

#C0N,-(sp) 

3 

Bios 2. 

4 

3 

move.N 

#$2,-(sp) 

3 

trap 

#13 

3 

.if $4 <= 8 

3 

addq 

#$4,sp 

3 

.else 


- 

add.H 

#$4.sp 

- 

.endif 



cmp.b 

#’C‘-64,d0 


beq 

exit 

noexit: 




bra 

navelp 

exit: 



0 

0 

System Tear-Donn 

0 

move.l 

oldvbl.vblvect 


jsr 

unraaus 


lea 

oldpal,a0 


lea 

palette.ai 


move 

#15,d0 

.unpip: 

move.N 

(a0) + ,(al) + 


dbra 

d8,.unplp 

abort: 

User 


3 

Gemdos 

$20,6 

3 

move.N 

#$20,-(sp) 

3 

trap 

#1 

3 

.if $8 

<= 8 

3 

addq 

#$6,sp 

3 

.else 


- 

add.w 

#$6,sp 

- 

.endif 



10:18:04 am 2-May-1989 

; d6 = Scan Line Count 
; FOR (208 Lines) 00 
; Copy a line from screenB 

; Copy a line from screenl 

; Copy a line from screen2 

; FOR (Nine files) 00 Close all 
; Fclose 

i IF (Error Closing a file) ABORT 

: Install our onn mouse handler 
; Capture System VBlank Interrupt 

; Keyboard Polling 


; IF (Keyboard Input Available) THEN 


; CTRL-C «> EXIT 

; Restore System VBlank Interrupt 
; Restore System mouse handler 

; restore old color palette 
; return to user mode 


154 






neonall.s 


Page 4 


10:18:84 am 2-May-1989 


Hadmac 1.88 (Atari ST) 






Pterm0 

; return to GEMOOS 


880001FE 

4267 

© 

clr.H 

-(sp) 


86000200 

4E41 

© 

trap 

#1 

155 

08000202 

4 AFC 

© 

illegal 


15S 






157 






158 




V8L 

Vertical-Blank Interrupt Server 

159 






168 



vbl: 


161 

86080204 

48E78880 


movem. 1 

d0/a0,-(sp) 

162 






163 

08080288 

3839xxxxxxxx 


move 

xmouse,d8 

164 

0808828E 

C07C000F 


and 

*$8f,d0 

16S 

08688212 

11C08265 


move.b 

d0,hscroll i Xpos MOD 16 = Scroll count 

166 

88808216 

4A08 


tst.b 

d0 

167 

86008218 

6600xxxx 


bne 

,non0 : IF (Scrolling) THEN 4 nord offset 

168 

0088821C 

11FC06A8828F 


move.b 

*160,linenid 

169 

00888222 

6800xxxx 


bra 

.Join 

170 

00686226 

11FC009C820F 

.non0: move.b 

*156,linenid 

171 




join: 


172 

0006022C 

41F9xxxxxxxx 


lea 

bigbuff,a0 

173 

00080232 

3039xxxxxxxx 


move 

ymouse,d8 

174 

00060238 

C8FC61E8 


mulu 

*3*168,d0 i Ypos * Linenid B Vertical offset 

175 

0008023C 

O1C0 


adda.l 

d0,a8 

176 

0006023E 

3839xxxxxxxx 


move 

xmouse,d0 

177 

08068244 

E240 


asr 

*l,d0 

178 

00080246 

C87CFFF8 


and 

#$fff8,d8 ; 8*(Xpos OIV 16) * Line offset 

179 

0008024A 

D8C0 


adda 

d0,a8 ; a8 * Video Base Address 

188 

8000024C 

23C8xxxxxxxx 


move.l 

a0,vbltemp 

181 

00068252 

11F9XXXXXXXX0000 


move.b 

vbltemp+l,vcounthi 

182 

0806825A 

11F9XXXXXXXX0080 


move.b 

vb1temp*2,vcountmid 

183 

80000262 

11F9XXXXXXXX0008 


move.b 

vb1temp+3,vcount1o 

184 






185 

0080826A 

4C0F8181 


movem. 1 

(sp)*,d0/a6 

186 

0060826E 

4EF9 


.dc.H 

$4ef9 

187 

00888270 

88080608 

oldvbl: .dc.l 

8 ; JMP (Old-Vblank) 

188 

60808274 

4AFC 


illegal 


189 






190 






191 






192 




HOUSE HANDLING 

193 






194 






195 






196 




INITMAUS Capture system mouse 

197 






198 




Given: 


199 





Control 

288 






201 




Returns: 

282 





With motion and button vectors captured 

203 






204 




Register Usage: 

205 





destroys d8-d3 and a0-a3 

206 






207 




Externals: 

208 





none 

209 






210 



initmaus: 


211 

80808276 

A888 


.dc.H 

$a808 ; Line-A Trap 

212 

60808278 

33E8F0A6xxxxxxxx 


move 

cur_x(a8),xmouse 

213 

08008288 

33E8FDA8xxxxxxxx 


move 

cur_y(a0),ymouse 

214 

00888288 

23E8FFCExxxxxxxx 


move.l 

movec(a8),moldvec 

215 

08808298 

217Cxxxxxxxx0080 


move.l 

*ourmaus,movec(a8) ; Take over mouse motion 

216 

88808298 

4E75 


rts 


217 






218 




Mouse Motion Interrupt 

219 






220 



ourmaus: 


221 

8000029A 

33C8xxxxxxxx 


move 

d0,xmouse 

222 

888882A8 

33Clxxxxxxxx 


move 

dl.ymouse ; Save nen mouse position 

223 

088602A6 

4EF9 


.dc.H 

$4ef9 

224 



moldvec: 


225 

808602A8 

88808080 


.dc.l 

8 ; JMP (Old motion vector) 

226 

800882AC 

4AFC 


illegal 


227 






228 




UNMAUS 

Restore mouse to system 

229 






230 




Given: 


231 





Control 

232 






233 




Returns 


234 





Mouse and button vectors restored to system 

235 






236 




; Register Usage: 

237 





destroys d0-d3 and a8-a3 

238 




; 


239 




; Externals: 

240 




; 

none 

241 




; 


242 




unmaus: 









neowall.s 


Page 5 


10:18:04 am 2-May-1989 


Madmac 1.00 (Atari ST) 


.dc.H $a000 ; Line-A Trap 

move.l moldvec,movec(a0) ; Restore mouse motion 

rts 


243 000002AE A000 

244 00000260 2179000002A8FFCE 

245 000002B8 4E75 

246 

247 

248 

249 

250 

251 000002BA 

252 

253 00006800 2A2E6E656F00 

254 

255 

256 

257 

258 

259 

260 00000666 
261 

262 

263 00806060 *00666016 

264 

265 

266 60600040 *00880009 

267 

268 00860652 *08066661 

269 

270 00800056 *86046560 

271 

272 06046556 *60017700 

273 

274 

275 8605OC56 *60008081 

276 

277 

278 0665OC5A *60606081 

279 

286 0085OC5C =00060801 
281 

282 0005OC5E *60800106 

283 

284 6665E05E *00000661 

285 

286 


; DATA STORAGE 

f 

.data 

neofiles: 

.dc.b “*.neo‘*,0 

.even 


J RANDOM DATA STORAGE 

.bss 

oldpal: 

.ds.l 16 

handlist: 

.ds.w 9 

buffptr: 

.ds.l 1 

bigbuff: 

.ds.b 9*32000 
threebuf: 

.ds.b 3*32608 

vbltemp: 

.ds.l 1 

xmouse: 

.ds.w 1 

yoouse: 

.ds.w 1 
.ds.l 256 

mystack: 

.ds.l 1 
.end 


; NEO filename search string 


; Original color palette 
; Array of Active Handles (9) 

; Load ptr for bigbuff 
; Mega-Image Buffer 
i Temporary Triple-Image Buffer 

; Vblank Temporary Storage 

; Latest mouse Xposn 
: Latest mouse Yposn 

; (stack body) 

; Local Stack Storage 
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.close 00000180 t 
.gotnine 00000082 t 
.join 0060622C t 
.linlp 60080148 t 
.neoloop 8860005E t 
,non8 00600226 t 
.piOOp 606606E4 t 
.redip 6006010A t 
.roHlp 000000F8 t 
.tl 0000014C t 
.t2 80060156 t 
.t3 06000160 t 
.unplp 060001F0 t 
AUX 00006001 ea 
B8ASE 00006018 a 
BLEN 0880081C a 
BPSZ 06000100 ea 
BSIZE 0880800A a 
BSSSZ 0000001C ea 
CMDLINE 00660880 a 
CON 80600062 ea 
CR 60000800 ea 
CURS-BLINK 00000002 ea 
CURS-6ETRATE 00000005 ea 
CURS-HIDE 00000000 ea 
CURSJNOBLINK 66600003 ea 
CURS-SETRATE 60000004 ea 
CURS-SHOW 06800601 ea 
OATASZ 00000014 ea 
OBASE 00000010 a 
OLEN 06000014 a 
OSIZE 00000006 a 
OTA 00060028 a 
ENVIR 00000820 a 
FILE-ID 00000000 a 
HEAOSIZE 0608601C ea 
HITPA 00000004 a 
IKBD 60606004 ea 
LF 8086608A ea 
LOHTPA 00006000 a 
MIDI 00006063 ea 
MYOTA 00660020 ea 
PARENT 00060624 a 
PRT 00008606 ea 
RAUCON 00060605 ea 
SSIZE 0006060E a 
TAB 00060809 ea 
TBASE 00860008 a 
TEXTSZ 0600060C ea 
TLEN 08000000 a 
TSIZE 80060602 a 
XXXI 06000812 a 
XXX2 06880616 a 
XXX3 0600001A a 
XXXX 00000828 a 

_md 0000049E ea 

-autopath 000004CA ea 
-bootdev 00000446 ea 
-bufl 000004B2 ea 
-cmdload 00800482 ea 
-drubits 880004C2 ea 
-dskbufp 000804C6 ea 
-frclock 00000466 ea 
_fverify 60800444 ea 
-hZ-200 006804BA ea 
-inembot 00000432 ea 
-memtop 00000436 ea 
-nflops 800004A6 ea 
-prt-cnt 008004EE ea 
-prtabt 000004F0 ea 
-shell-p 000004F6 ea 
-sysbase 000004F2 ea 
-timr_ms 00000442 ea 
-V-bas-ad 0800044E ea 
-vbclock 00060462 ea 
-vbl-list 000004CE ea 
_vblqueue 00000456 ea 
abort 000001F6 t 
aer FFFFFA03 ea 
bigbuff 00068656 b 
buffptr 00800052 b 
cmdreg 60008688 ea 
colorptr 0800045A ea 
constate 600684A8 ea 
conterm 00008484 ea 
criticret 0008048A ea 
cur-x FFFFF0A6 ea 
cur-y FFFFF0A8 ea 
datareg 60080086 ea 
ddr FFFFFA05 ea 
defshiftmd 0000044A ea 


diskctl FFFF8604 ea 
dmahi FFFF8609 ea 
dmalo FFFF860O ea 
dmamid FFFF860B ea 
dtr 08680816 ea 
end_os 006604FA ea 
etv-critic 00000404 ea 
etv-term 66880468 ea 
etu-timer 88080488 ea 
etv-xtra 0000040C ea 
exec-os 086664FE ea 
exit 66060104 t 
fifo FFFF8606 ea 
flock 6666643E ea 
giaarap 00880008 ea 
gibamp 86806069 ea 
gicarap 6068600A ea 
gicrnvlp 8080660C ea 
gifienvip 60888068 ea 
gimixer 88808067 ea 
ginoise 60000066 ea 
giporta 8800006E ea 
giportb 8686866F ea 
giread FFFF8880 ea 
giselect FFFF8886 ea 
gitoneac 88088661 ea 
gitoneaf 60068606 ea 
gitonebc 06068803 ea 
gitonebf 06860882 ea 
gitonecc 06606885 ea 
gitonecf 66008804 ea 
giwrite FFFF8802 ea 
gpip FFFFFA01 ea 
gpo 60066040 ea 
handlist 66608640 b 
hdv-boot 8660847A ea 
hdv-bpb 86808472 ea 
hdv-init 8088846A ea 
hdv-jaediach 0000047E ea 
hdu_rM 80006476 ea 
hscroll FFFF8265 ea 
iera FFFFFA07 ea 
ierb FFFFFA09 ea 
imra FFFFFA13 ea 
imrb FFFFFA15 ea 
initmaus 06B88276 t 
ipra FFFFFA8B ea 
iprb FFFFFA0D ea 
isra FFFFFA0F ea 
isrb FFFFFA11 ea 
keybd FFFFFC02 ea 
keyctl FFFFFC00 ea 
linenid FFFF820F ea 
memcntlr 00000424 ea 
memconf FFFF8081 ea 
memual2 8860843A ea 
memvalid 60000428 ea 
mfp FFFFFA80 ea 
midi FFFFFC06 ea 
midictl FFFFFC04 ea 
moldvec 606682A8 t 
movec FFFFFFCE ea 
mystack 6005E65E b 
neofiles 68008806 d 
noexit 66006102 t 
nubIs 86068454 ea 
oldpal 86860686 b 
oldvbl 66000276 t 
ourmaus 6808029A t 
palette FFFF8248 ea 
palmode 86060448 ea 
phystop 0800042E ea 
pru_aux 00000512 ea 
prv-auxo 6806650E ea 
pru-lst 0000850A ea 
prv-lsto 00000506 ea 
resualid 06006426 ea 
resvector 0000042A ea 
rezmode FFFF8260 ea 
rsr FFFFFA2B ea 
sav-context 880004AE ea 
save_row 008004AC ea 
sauptr 008004A2 ea 
scr FFFFFA27 ea 
scr_dump 00000502 ea 
screenpt 0000045E ea 
secreg 08800084 ea 
seekrate 06000440 ea 
sshiftmd 0000044C ea 
start 00000008 t 
strobe 08000020 ea 


SHU-vec 0000046E ea 
syncmode FFFF828A ea 
tacr FFFFFA19 ea 
tadr FFFFFA1F ea 
tbcr FFFFFA1B ea 
tbdr FFFFFA21 ea 
tcdcr FFFFFA10 ea 
tcdr FFFFFA23 ea 
tddr FFFFFA25 ea 
themd 0000048E ea 
threebuf 68646556 b 
trkreg 86680682 ea 
trp!4ret 86668486 ea 
tsr FFFFFA20 ea 
ucr FFFFFA29 ea 
udr FFFFFA2F ea 
unmaus 600802AE t 
vbasehi FFFF8281 ea 
ubaselo FFFF8260 ea 
vbasemid FFFF8263 ea 
vbl 66888264 t 
vblsem 68880452 ea 
ubltemp 6085OC56 b 
vblvect 86886878 ea 
vcounthi FFFF8265 ea 
vcountlo FFFF8209 ea 
vcountmid FFFF8267 ea 
vr FFFFFA17 ea 
xavelp 806861AC t 
xmouse 6885DC5A b 
xrts 66066608 ea 
ymouse 0005OC5C b 



STE Digitized Sound 
Developer information 


The Atari STE™ family of computers is equipped to reproduce digitized sound using DMA 
(direct memory access; that is, without using the 68000). This document provides the 
information required to understand and use this feature. 

OVERVIEW 

Sound is stored in memory as digitized samples. Each sample is a number, from -128 to 
+127, which represents displacement of the speaker from the "neutral" or middle position. 
During horizontal blanking (transparent to the processor) the DMA sound chip fetches 
samples from memory and provides them to a digital-to-analog converter (DAC) at one of 
several constant rates, programmable as (approximately) 50KHz (kilohertz), 25KHz, 

12.5KHz, and 6.25KHz. This rate is called the sample frequency. 

The output of the DAC is then filtered to a frequency equal to 40% of the sample frequency 
by a four-pole switched low-pass filter. This performs "anti-aliasing" of the sound data in a 
sample-frequency-sensitive way. The signal is further filtered by a two-pole fixed frequency 
(16kHz) low-pass filter and provided to a National LMC1992 Volume/Tone Controller. 
Finally, the output is available at an RCA-style output jack on the back of the computer. This 
can be fed into an amplifier, and then to speakers, headphones, or tape recorders. 

There are two channels which behave as described above; they are intended to be used as the 
left and right channels of a stereo system when using the audio outputs of the machine. A 
monophonic mode is provided which will send the same sample data to each channel. 

The stereo sound output is also mixed onto the standard ST audio output sent to the monitor’s 
speaker. The ST’s GI sound chip output can be mixed to the monitor and to both stereo 
output jacks as well. 



DATA FORMAT 

Each sample is stored as a signed eight-bit quantity, where -128 (80 hex) means full negative 
displacement of the speaker, and 127 (7F hex) means full positive displacement. In stereo 
mode, each word represents two samples: the upper byte is the sample for the left channel, and 
the lower byte is the sample for the right channel. In mono mode each byte is one sample. 
However, the samples are always fetched a word at a time, so only an even number of mono 
samples can be played. 

A group of samples is called a "frame." A frame may be played once or can automatically be 
repeated forever (until stopped). A frame is described by its start and end addresses. The end 
address of a frame is actually the address of the first byte in memory beyond the frame; a 
frame starting at address 21100 which is 10 bytes long has an end address of 21110. 

Before continuing, please familiarize yourself with the DMA sound chip register set: 

REGISTER DESCRIPTIONS 

FF8900 ---—cc RW Sound DMA Control 

cc: 

00 Sound DMA disabled (reset state). 

01 Sound DMA enabled, disable at end of frame. 

11 Sound DMA enabled, repeat frame forever. 


FF8902 - OOxx xxxx RW Frame Base Address (high) 

FF8904 - xxxx xxxx RW Frame Base Address (middle) 

FF8906 - xxxx xxxO RW Frame Base Address (low) 

FF8908 - OOxx xxxx RO Frame Address Counter (high) 

FF890A - xxxx xxxx RO Frame Address Counter (middle) 

FF890C--xxxx xxxO RO Frame Address Counter (low) 

FF890E--OOxx xxxx RW Frame End Address (high) 

FF8910 - xxxx xxxx RW Frame End Address (middle) 

FF8912- xxxx xxxO RW Frame End Address (low) 


FF8920 0000 0000 mOOO OOrr RW Sound Mode Control 
rr: 

00 6258 Hz sample rate (reset state) 

01 12517 Hz sample rate 

10 25033 Hz sample rate 

11 50066 Hz sample rate 

m: 

0 Stereo Mode (reset state) 

1 Mono Mode 

FF8922 xxxx xxxx xxxx xxxx RW MICROWIRE™ Data register 
FF8924 xxxx xxxx xxxx xxxx RW MICROWIRE™ Mask register 

Note: a zero can be written to the DMA sound control register at any time to stop playback 
immediately. 













The frame address registers occupy the low bytes of three consecutive words each. The high 
bytes of these words do not contain anything useful, and it is harmless to read or write them. 
The frame address counter register is read-only, and holds the address of the next sample word 
to be fetched. 

PROGRAMMING CONSIDERATIONS 

The simplest way to produce a sound is to assemble a frame in memory, write the start address 
of the frame into the Frame Start Address register, and the end address of the frame into the 
Frame End Address register, set the Mode register appropriately (set stereo or mono, and the 
sample frequency), and write a one into the Sound DMA Control register. The frame will 
play once, then stop. 

To produce continuous sound, and link frames together, more elaborate techniques are 
required. 

The DMA sound chip produces a signal called "DMA sound active" which is one when the 
chip is playing sounds, and zero when it’s not. When a frame ends in the repeat mode (mode 
3), there is a transition from "active" to "idle" and back again on this signal. The signal is 
presented as the external input to MFP Timer A. You can put Timer A into Event Count 
mode and use it to generate an interrupt, for example when a frame has played a given number 
of times. Because of the design of the MFP, the active edge for this signal must be the same 
as the input on GPIP 14, which is the interrupt line from the keyboard and MIDI interfaces. It 
is, and the Active Edge Register is already programmed for that, so you need not worry about 
that if you use Timer A to count frames. 

The DMA Sound chip’s mode 3 (repeat mode) ensures seamless linkage of frames, because 
the start and end registers are actually double-buffered. When you write to these registers, 
what you write really goes into a "holding area". The contents of the holding area go into the 
true registers at the end of the current frame. (Actually, they go in when the chip is idle, 
which means right away if the chip was idle to begin with.) 

If you have two frames which you want played in succession, you can write the start and end 
addresses of the first frame into the chip, then set its control register to 3. The first frame will 
begin playing. You can then immediately write the start and end addresses of the second 
frame into the chip: they will be held in the holding area until the first frame finishes, then 
they’ll be copied into the true registers and the second frame will play. The interrupt between 
frames will still happen, so you can tell when the first frame has finished. Then, for instance, 
you can write the start and end registers for the start of a zfe/z/frame, knowing that it will 
begin as soon as the second frame has finished. You could even write new data into the first 
frame and write its start and end address into the chip; this kind of ping-pong effect is rather 
like double-buffering of a graphics display. 

Here is an example of using Timer A in Event Count mode to play a controlled series of 
frames. Suppose you have three frames. A, B, and C, and you want to play frame A three 
times, then frame B five times, and finally frame C twice. The sequence of steps below will 
accomplish this. Numbered steps are carried out by your program; the bracketed descriptions 
are of things which are happening as a result. 

1. Set Timer A to event count mode, and its counter to 2 (not 3). 



2. Write Frame A’s start & end addresses into the registers. 

3. Write a 3 to the sound DMA control register. [Play begins.] Go do something else 
until interrupted. 

[At the end of the second repetition of Frame A, the timer’s interrupt fires. At the 
same time, frame A begins its third repetition.] 

4. Write Frame B’s start and end addresses into the DMA sound chip. These values 
will be held until the third repetition of Frame A finishes. 

5. Set Timer A’s count register to 5, then go away until interrupted 

[When the current repetition finishes, the start & end registers are loaded from the 
holding area, and Frame B will begin playing. The end-of-frame signal will cause 
Timer A to count from 5 to 4. At the end of Frame B’s fourth repetition, its fifth 
will start, the timer will count down from 1 to 0, and the interrupt will occur.] 

6. Write frame C’s start & end addresses into the registers, and program Timer A to 
count to 2. Go away until interrupted. 

(When the current repetition (B’s fifth) finishes, the start & end registers are loaded 
from the holding area, and Frame C will begin playing. The end-of-frame signal 
causes Timer A to count down from 2 to 1. When Frame C finishes its first 
repetition. Timer A counts down from 1 to 0 and interrupts.) 

7. Write a 1 to the DMA Sound Control Register to play the current frame, then stop. 
Disable Timer A and mask its interrupt. You’re done. 

As you can see, you program the timer to interrupt after one repetition lessX han the number of 
times you want a frame to play. That is so you can set up the next frame while the DMA 
sound chip is playing the last repetition of the current frame. This ensures seamless linkage of 
frames. 

INTERRUPTS WITHOUT TIMER A 

Besides going to the external input signal of Timer A, the DMA-sound-active signal, true 
high, is exclusive-ORed with the monochrome-detect signal, and together they form the GPIP 
17 input to the M68901 MFP. The intent of this is to provide for interrupt-driven sound 
drivers without using up the last general-purpose timer in the MFP. It is a little trickier to use, 
however. For one thing, it causes the interrupt at the end of every frame, not after a specified 
number of frames. For another, the "interesting" edge on this signal depends on what kind of 
monitor you have. 



On an ST, monochrome monitors ground the mono-detect signal, so when you read the bit in 
the MFP you get a zero. Color monitors do not ground it, so it reads as a one. When the 
DMA sound is idle (0), this is still the case. However, when the sound is active (1), the mono- 
detect signal is inverted by the XOR, so the bit in the MFP reads the opposite way. (The one 
place where the OS reads this bit is at VBLANK time, to see if you’ve changed monitors. 

The ROMs on any machine with DMA sound are appropriately modified, so you need not 
worry about this.) 

If you want to use the mono-detect / DMA interrupt signal, you have to set up the active-edge 
register in the MFP to cause the interrupt at the right time. The interesting edge on the DMA 
signal is the falling edge, that is, from active to idle; this happens when a frame finishes.. If 
you have a monochrome monitor, this edge is seen as a transition from 1 to 0 on MFP bit 17. 
However, with a color monitor, the edge will be seen as a transition from 0 to 1. Therefore, 
you have to program the MFP’s active-edge register differently depending on which monitor 
you have. Make sure the DMA sound is idle (write a zero to the control register), then check 
MFP 17: if it’s one, you have a color monitor, and you need to see the rising edge. If it’s zero, 
you have a monochrome monitor, and you need to see the falling edge. 

The DMA sound active signal goes from "active" to "idle" when a frame finishes. If it was 
playing in mode 1, it stays "idle" and the control register reverts to zero. If it was playing in 
mode 3, the signal goes back to "active" as the next frame begins. In this case, the signal is 
actually in the "idle" state for a very short time, but the MFP catches it and causes the 
interrupt, so don't worry. 

Additional Considerations 

Regardless of how you manage your interrupts, there is more you should know: the signal 
goes from "active" to "idle" when the DMA sound chip has fetcfiedXfot last sample in the 
frame. There is a four-word FIFO in the chip, however, so it will be eight sample-times (four 
in stereo mode) before the sound actually finishes. If you are using mode 1, you can use this 
time to set up the chip with the start and end addresses of the next frame, so it will start as 
soon as the current one ends. However, if the interrupt should be postponed for four or eight 
sample-times, you could miss your chance to start the sound seamlessly. Therefore, for 
seamless linkage, use the pre-loading technique described above. 

MICRO WIRE™ Interface 

The MICROWIRE™ interface provided to talk to the National LMC1992 Computer 
Controlled Volume / Tone Control is a general purpose MICRO WIRE™ interface to allow the 
future addition of other MICRO WIRE™ devices. For this reason, the following description of 
its use will make no assumptions about the device being addressed. 

The MICRO WIRE™ bus is a three wire serial connection and protocol designed to allow 
multiple devices to be individually addressed by the controller. The length of the serial data 
stream depends on the destination device. In general, the stream consists of N bits of address, 
followed by zero or more don’t care bits, followed by M bits of data. The hardware interface 
provided consists of two 16 bit read/write registers: one data register which contains the actual 
bit stream to be shifted out, and one mask register which indicates which bits are valid. 



Let’s consider a mythical device which requires two address bits and one data bit. For this 
device the total bit stream is three bits (minimum). Any three bits of the register pair may be 
used. However, since the most significant bit is shifted first, the command will be received by 
the device soonest if the three most significant bits are used. Let’s assume: 01 is the device’s 
address, D is the data to be written, and X’s are don’t cares. Then all of the following register 
combinations will provide the same information to the device. 

1110 0000 0000 0000 Mask 

01DX XXXX XXXX XXXX Data 

0000 0000 0000 0111 Mask 

XXXX XXXX XXXX X01D Data 

0000 0001 1100 0000 Mask 

XXXX XXX0 1DXX XXXX Data 

0000 1100 0001 0000 Mask 

XXXX 01XX XXXD XXXX Data 

1100 0000 0000 0001 Mask 

01XX XXXX XXXX XXXD Data 

As you can see. the address bits must be contiguous, and so must the data bits, but they don’t 
have to be contiguous with each other. 

The mask register must be written before the data register. Sending commences when the data 
register is written and takes approximately 16psec. Subsequent writes to the data and mask 
registers are blocked until sending is complete. Reading the registers while sending is in 
progress will return a snapshot of the shift register shifting the data and mask out. This means 
that you know it is safe to send the next command when these registers (or either one) return 
to their original state. Note that the mask register does not need to be rewritten if it is already 
correct. That is, when sending a series of commands the mask register only needs to be 
written once. 


Volume and Tone Control 

The LMC1992 is used to provide volume and tone control. Before you go and find a data 
sheet for this part, be warned that we do not use all of its features. Commands for the features 
we do use are listed below. 

Communication with this device is achieved using the MICRO WIRE™ interface. See 
MICROWIRE INTERFACE the section for details. The device has a two bit address field, 
address = 10, and a nine bit data field. There is no way to reading the current settings. 



Volume / Tone Controller Commands 


Device address =10 

Data Field 

Oil DDD DDD Set Master Volume 

000 000 -80 dB 

010 100 -40 dB 

101 XXX 0 dB 

101 XDD DDD Set Left Channel Volume 
00 000 -40 dB 
01 010 -20 dB 
10 1XX 0 dB 

100 XDD DDD Set Right Channel Volume 
00 000 -40 dB 
01 010 -20 dB 
10 1XX 0 dB 

010 XXD DDD Set Treble 

0 000 -12 dB 

0 110 0 dB (Flat) 

1 100 +12 dB 

001 XXD DDD Set Bass 
0 000 -12 dB 
0 110 0 dB (Flat) 

1 100 +12 dB 

000 XXX XDD Set Mix 

00 -12 dB 

01 Mix GI sound chip output 

10 Do not mix GI sound chip output 

11 reserved 

Note: The volume controls attenuate in 2 dB steps. The tone controls attenuate in 2 dB steps 
at 50 Hz and 15 kHz (Note: These frequencies may change). 



Using the MICROWIRE™ Interface and the 
Volume/Tone Control Chip 

The MICROWIRE ,M interface is not hard to use: once you get it right, you’ll never have to 
figure it out again. 

The easiest way to use it is to ignore the flexibility, and just use one form for all commands. 
Since the Volume/Tone chip is the only device, and it has a total of 11 bits of address and 
data, your mask should be $07ff. If you’re picky, you can use SffeO, because the high-order 
bits are shifted out first, but it adds conceptual complexity. With a mask of $07ff, the lower 9 
bits of the data regsiter are used for the data, and the next higher two bits are for the address: 

Mask: %0000 0111 1111 1111 

Data: %xxxx xlOd dddd dddd 

Replace the d’s with the command code and its data. For example, this combination sets the 
master volume to $14: 

Mask: %0000 0111 1111 1111 

Data: %xxxx xlOO 1101 0100 


The other important concept you must understand is that the bits shift out of these registers as 
soon as you write the data, and it takes an appreciable time (16 psec) to finish. You can’t 
attempt another write until the first one is finished. If you read either register while it’s being 
shifted out, you will see a "snapshot" of the data being shifted. You know the shifting is 
complete when the mask returns to its original value. (This theory is wrong if you use a mask 
which equals its original value sometime during the shifting, but $07ff never does.) 

Assuming you write $07ff into the mask register ahead of time, the following routine can be 
used to write new data from the DO register to the volume/tone control chip: 


MWMASK equ $ffff8924 
MWDATA equ $ffff8922 


mwwrite: 

cmp.w 
bne. s 
move.w 
rts 


#$07ff,MWMASK 

mwwrite 

dO,MWDATA 


wait for prev to finish 
loop until equal 
write the data 
and return 


The purpose of the loop at the beginning is to wait until a previous write completes. This loop 
is at the beginning of the routine, not the end, because waiting at the end would always force 
at 16 psec delay, even if it’s been longer than that since the last write. 




